home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
MINICAL.BAS
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1990-11-19
|
3KB
|
67 lines
nextparameter
process
stack
displaystack
subtract
MULTIPLY
divide
SQUAREROOT
** NAME :
MINICAL
1 **
** TYPE :
PROGRAM
1 **
** MODULE : MINICAL.BAS
- **
** LANGUAGE: QUICKBASIC 4.5
FUNCTIONS*
SUBPROGRAMS
get the command line
create a pseudo stack
process each part of the command line*
Not enough stack values"
Display resultsv
all done
nextparameter
** NAME :
NEXTPARAMETER$
* **
** TYPE :
finction
0 **
** Module:
Minical.bas
- **
** Language: Quickbasic 4.5
Extracts parameters form the front of the command line. Parameters are *
groups of any characters separated by spaces.m
process
** NAME :
PROCESS
** TYPE :
SUBPROGRAM
. **
** Module:
Minical.bas
- **
** Language: Quickbasic 4.5
PROCESSES each command parameter for the MINICAL program.
SQR";
CASE ELSE
displaystack
** NAME :
displaystack
, **
** TYPE :
subprogram
. **
** Module:
Minical.bas
- **
** Language: Quickbasic 4.5
Displays anything left on the stack when MINICAL finishes processing
the command line.r
stack...."
results...